home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtil-PCSide.lha / ATUtilities-PCSide / basic / ioctl.bas < prev    next >
Encoding:
BASIC Source File  |  2000-10-07  |  159 b   |  12 lines
  1. $include "regnames.inc"
  2.  
  3. reg %ax,&H440D
  4. reg %bx,asc("L")-65
  5. reg %cx,&H0842
  6. reg %ds,&Hd000
  7. reg %si,1000
  8. call interrupt &H21
  9. ?hex$(reg(%flags))
  10. end
  11.  
  12.